home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / heat / console.cfg next >
Text File  |  1991-10-18  |  4KB  |  207 lines
  1. /*******************************************************************
  2. /*    CONS_line : コンソールコマンド実行前に行変換される
  3. /*------------------------------------------------------------------
  4. /*        【入力】    CLIN    コマンドライン内容
  5. /*                    CNAM    コマンド名
  6. /*
  7. /*        【復帰】    ! 0        実行後画面初期化
  8. /*          ﾏｸﾛ        RET        実行文字列
  9. /*******************************************************************
  10. CONS_line {
  11.     strupr("s",CNAM)    /* ｱﾙﾌｧﾍﾞｯﾄを大文字に    */
  12.  
  13.     if ( s = "ORICON" )    /* oricon が実行された場合は画面初期化    */
  14.     {    ORICON_mes()
  15.         RET = CLIN;
  16.         return (1)
  17.     } else if ( s = "ORICON.EXE" )
  18.     {    ORICON_mes()
  19.         RET = CLIN;
  20.         return (1)
  21.     } else if ( s = "ORICON.COM" )
  22.     {    ORICON_mes()
  23.         RET = CLIN;
  24.         return (1)
  25.     } else if ( s = "MENU" )
  26.     {    cons_menu()
  27.     } else
  28.     {    RET = CLIN;
  29.         return (0)
  30.     }
  31. }
  32.  
  33.  
  34. cons_menu {
  35.     mosget("sw","x","y")
  36.     menu2_select(x,y,"CONSOLE MENU",
  37.         "O:ORICON",
  38.         "D:Directory",
  39.         "T:make Tag"
  40.     )
  41.     if ( VAL = 0 )
  42.     {    ORICON_mes()
  43.         RET = "oricon";
  44.         return    (1)
  45.     } else if ( VAL = 1 )
  46.     {    RET = "DIR /w";
  47.         return    (0)
  48.     } else if ( VAL = 2 )
  49.     {    RET = "mitags *.c *.h >tags";
  50.         return    (0)
  51.     }
  52.     RET = "";
  53.     return    (0)
  54. }
  55.  
  56. ORICON_mes {
  57.     cons_puts("もどるときは [exit] としてね♪\x0A")
  58.     wait(2)
  59. }
  60.  
  61. /*********************************************************************
  62. /*    コンソールモードで表示されるPFキーの内容
  63. /*
  64. CONS_PF1  = LH閲覧
  65. CONS_PF2  = LH解凍
  66. CONS_PF3  = LH凍結
  67. CONS_PF4  = 石作成
  68. CONS_PF5  = 石展開
  69. CONS_PF6  = ORICON
  70. CONS_PF7  = 
  71. CONS_PF8  = 
  72. CONS_PF9  = 
  73. CONS_PF10 = 
  74.  
  75. /*********************************************************************
  76. /*
  77. /*    コンソールからPFキーが押されると呼び出されるマクロ
  78. /*
  79. /*    【入力】    なし
  80. /*    【復帰】    VAL = 0;    入力行に RET がセットされる
  81. /*                VAL > 0;    入力行に RET がセットされる(ﾌﾟﾛﾝﾌﾟﾄ書換え)
  82. /*                VAL < 0;    入力行はクリアされる
  83. /*
  84. CONS_MAC_1 {
  85.     RET =""
  86.     file_select("ARC","LHa l : 書庫閲覧", -1, "", "*.lzh", 0 )
  87.     if ( VAL ! 0 )
  88.     {    return    (1)    /* ﾌｧｲﾙ･ｾﾚｸﾀ 起動後は (1) で戻らないとｶﾚﾝﾄが変わっている可能性がある    */
  89.     }
  90.     if ( ARC = "" )
  91.     {    return    (1)
  92.     }
  93.     RET = "LHa l \(ARC)"
  94.     cons_puts( RET )
  95.     cons_puts( "\x0A" )
  96.     system( RET )
  97.     return    (-1)
  98. }
  99.  
  100. /*--------------------------------------------------------------------
  101. /*    LHa 解凍
  102. /*
  103. CONS_MAC_2 {
  104.     RET =""
  105.     file_select("ARC","LHa x : 書庫解凍", -1, "", "*.lzh", 0 )
  106.     if ( VAL ! 0 )
  107.     {    return    (1)
  108.     }
  109.     if ( ARC = "" )
  110.     {    return    (1)
  111.     }
  112.     RET = "LHa x \(ARC)"
  113.     return    (1)
  114. }
  115.  
  116. /*--------------------------------------------------------------------
  117. /*    LHa 凍結
  118. /*
  119. CONS_MAC_3 {
  120.     RET=""
  121.     mosget("sw","x","y")
  122.     menu_input("ARC",16,x,y,C_CYAN,"書庫ファイル名を入力してください。")
  123.     if ( VAL < 0 )
  124.     {    return    (0)
  125.     }
  126.     if ( ARC = "" )
  127.     {    return    (0)
  128.     }
  129.     FILE = ""
  130.     file_select("FILE","LHa a \(ARC) : 凍結", -1, "", "*.*", 0 )
  131.     if ( VAL ! 0 )
  132.     {    return    (1)
  133.     }
  134.     if ( FILE = "" )
  135.     {    return    (1)
  136.     }
  137.     RET ="LHa a \(ARC) \(FILE)"
  138.     return    (1)
  139. }
  140.  
  141. /*--------------------------------------------------------------------
  142. /*    Ish ファイル作成
  143. /*
  144. CONS_MAC_4 {
  145.     RET =""
  146.     file_select("ISH","ish ファイル作成", -1, "", "*.*", 0 )
  147.     if ( VAL ! 0 )
  148.     {    return    (1)
  149.     }
  150.     if ( ISH = "" )
  151.     {    return    (1)
  152.     }
  153.     RET = "ish \(ISH) /ss"
  154.     return    (1)
  155. }
  156.  
  157. /*--------------------------------------------------------------------
  158. /*    Ish ファイル展開
  159. /*
  160. CONS_MAC_5 {
  161.     RET =""
  162.     FILE = ""
  163.     file_select("FILE","ish 展開", -1, "", "*.*", 0 )
  164.     if ( VAL ! 0 )
  165.     {    return    (1)
  166.     }
  167.     if ( FILE = "" )
  168.     {    return    (1)
  169.     }
  170.     RET = "ish \(FILE) /r"
  171.     return    (1)
  172. }
  173. CONS_MAC_6 {
  174.     RET="oricon"
  175.     return    (0)
  176. }
  177. CONS_MAC_7 {
  178.     RET=""
  179.     return    (0)
  180. }
  181. CONS_MAC_8 {
  182.     RET=""
  183.     return    (0)
  184. }
  185. CONS_MAC_9 {
  186.     RET=""
  187.     return    (0)
  188. }
  189. CONS_MAC_10 {
  190.     RET=""
  191.     return    (0)
  192. }
  193.  
  194. CONS_help {
  195.     wind_close()
  196.     wind_init()
  197.     wind_open2("コンソール へるぷ ﾁｬﾝ")
  198.     tabset(4)
  199.     echo("\n\tLHA やISH はちゃんと用意している？\n")
  200.     echo("\n\tORICONも用意しておかないと起動できないよ。\n")
  201.     wait(10)
  202.     wind_close()
  203.     tabset(8)
  204. }
  205.  
  206.  
  207.